<?php
    if (!defined('PHPEXCEL_ROOT')) {
        /**
         * @ignore
         */
        define('PHPEXCEL_ROOT', dirname(__FILE__) . '/../../');
        require(PHPEXCEL_ROOT . 'PHPExcel/Autoloader.php');
    }
    /**
     * PHPExcel_Reader_HTML
     * Copyright (c) 2006 - 2015 PHPExcel
     * This library is free software; you can redistribute it and/or
     * modify it under the terms of the GNU Lesser General Public
     * License as published by the Free Software Foundation; either
     * version 2.1 of the License, or (at your option) any later version.
     * This library is distributed in the hope that it will be useful,
     * but WITHOUT ANY WARRANTY; without even the implied warranty of
     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     * Lesser General Public License for more details.
     * You should have received a copy of the GNU Lesser General Public
     * License along with this library; if not, write to the Free Software
     * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
     * @category   PHPExcel
     * @package    PHPExcel_Reader
     * @copyright  Copyright (c) 2006 - 2015 PHPExcel (http://www.codeplex.com/PHPExcel)
     * @license    http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt    LGPL
     * @version    ##VERSION##, ##DATE##
     */

    /** PHPExcel root directory */
    class PHPExcel_Reader_HTML extends PHPExcel_Reader_Abstract implements PHPExcel_Reader_IReader {
        /**
         * Input encoding
         * @var string
         */
        protected $inputEncoding = 'ANSI';
        /**
         * Sheet index to read
         * @var int
         */
        protected $sheetIndex = 0;
        /**
         * Formats
         * @var array
         */
        protected $formats = [
            'h1' => [
                'font' => [
                    'bold' => true,
                    'size' => 24,
                ],
            ],
            //    Bold, 24pt
            'h2' => [
                'font' => [
                    'bold' => true,
                    'size' => 18,
                ],
            ],
            //    Bold, 18pt
            'h3' => [
                'font' => [
                    'bold' => true,
                    'size' => 13.5,
                ],
            ],
            //    Bold, 13.5pt
            'h4' => [
                'font' => [
                    'bold' => true,
                    'size' => 12,
                ],
            ],
            //    Bold, 12pt
            'h5' => [
                'font' => [
                    'bold' => true,
                    'size' => 10,
                ],
            ],
            //    Bold, 10pt
            'h6' => [
                'font' => [
                    'bold' => true,
                    'size' => 7.5,
                ],
            ],
            //    Bold, 7.5pt
            'a'  => [
                'font' => [
                    'underline' => true,
                    'color'     => [
                        'argb' => PHPExcel_Style_Color::COLOR_BLUE,
                    ],
                ],
            ],
            //    Blue underlined
            'hr' => [
                'borders' => [
                    'bottom' => [
                        'style' => PHPExcel_Style_Border::BORDER_THIN,
                        'color' => [
                            PHPExcel_Style_Color::COLOR_BLACK,
                        ],
                    ],
                ],
            ],
            //    Bottom border
        ];
        protected $rowspan      = [];
        protected $dataArray    = [];
        protected $tableLevel   = 0;
        protected $nestedColumn = ['A'];

        /**
         * Create a new PHPExcel_Reader_HTML
         */
        public function __construct() {
            $this->readFilter = new PHPExcel_Reader_DefaultReadFilter();
        }

        /**
         * Loads PHPExcel from file
         * @param  string $pFilename
         * @return PHPExcel
         * @throws PHPExcel_Reader_Exception
         */
        public function load($pFilename) {
            // Create new PHPExcel
            $objPHPExcel = new PHPExcel();
            // Load into this instance
            return $this->loadIntoExisting($pFilename, $objPHPExcel);
        }

        //    Data Array used for testing only, should write to PHPExcel object on completion of tests

        /**
         * Loads PHPExcel from file into PHPExcel instance
         * @param  string   $pFilename
         * @param  PHPExcel $objPHPExcel
         * @return PHPExcel
         * @throws PHPExcel_Reader_Exception
         */
        public function loadIntoExisting($pFilename, PHPExcel $objPHPExcel) {
            // Open file to validate
            $this->openFile($pFilename);
            if (!$this->isValidFormat()) {
                fclose($this->fileHandle);
                throw new PHPExcel_Reader_Exception($pFilename . " is an Invalid HTML file.");
            }
            //    Close after validating
            fclose($this->fileHandle);
            // Create new PHPExcel
            while ($objPHPExcel->getSheetCount() <= $this->sheetIndex) {
                $objPHPExcel->createSheet();
            }
            $objPHPExcel->setActiveSheetIndex($this->sheetIndex);
            //    Create a new DOM object
            $dom = new domDocument;
            //    Reload the HTML file into the DOM object
            $loaded = $dom->loadHTML(mb_convert_encoding($this->securityScanFile($pFilename), 'HTML-ENTITIES', 'UTF-8'));
            if ($loaded === false) {
                throw new PHPExcel_Reader_Exception('Failed to load ' . $pFilename . ' as a DOM Document');
            }
            //    Discard white space
            $dom->preserveWhiteSpace = false;
            $row     = 0;
            $column  = 'A';
            $content = '';
            $this->processDomElement($dom, $objPHPExcel->getActiveSheet(), $row, $column, $content);
            // Return
            return $objPHPExcel;
        }

        /**
         * Validate that the current file is an HTML file
         * @return boolean
         */
        protected function isValidFormat() {
            //    Reading 2048 bytes should be enough to validate that the format is HTML
            $data = fread($this->fileHandle, 2048);
            if ((strpos($data, '<') !== false) && (strlen($data) !== strlen(strip_tags($data)))) {
                return true;
            }
            return false;
        }

        protected function processDomElement(DOMNode $element, $sheet, &$row, &$column, &$cellContent, $format = null) {
            foreach ($element->childNodes as $child) {
                if ($child instanceof DOMText) {
                    $domText = preg_replace('/\s+/u', ' ', trim($child->nodeValue));
                    if (is_string($cellContent)) {
                        //    simply append the text if the cell content is a plain text string
                        $cellContent .= $domText;
                    } else {
                        //    but if we have a rich text run instead, we need to append it correctly
                        //    TODO
                    }
                } elseif ($child instanceof DOMElement) {
                    //                echo '<b>DOM ELEMENT: </b>' , strtoupper($child->nodeName) , '<br />';
                    $attributeArray = [];
                    foreach ($child->attributes as $attribute) {
                        //                    echo '<b>ATTRIBUTE: </b>' , $attribute->name , ' => ' , $attribute->value , '<br />';
                        $attributeArray[$attribute->name] = $attribute->value;
                    }
                    switch ($child->nodeName) {
                        case 'meta':
                            foreach ($attributeArray as $attributeName => $attributeValue) {
                                switch ($attributeName) {
                                    case 'content':
                                        //    TODO
                                        //    Extract character set, so we can convert to UTF-8 if required
                                        break;
                                }
                            }
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            break;
                        case 'title':
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            $sheet->setTitle($cellContent);
                            $cellContent = '';
                            break;
                        case 'span':
                        case 'div':
                        case 'font':
                        case 'i':
                        case 'em':
                        case 'strong':
                        case 'b':
                            //                        echo 'STYLING, SPAN OR DIV<br />';
                            if ($cellContent > '') {
                                $cellContent .= ' ';
                            }
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            if ($cellContent > '') {
                                $cellContent .= ' ';
                            }
                            //                        echo 'END OF STYLING, SPAN OR DIV<br />';
                            break;
                        case 'hr':
                            $this->flushCell($sheet, $column, $row, $cellContent);
                            ++$row;
                            if (isset($this->formats[$child->nodeName])) {
                                $sheet->getStyle($column . $row)->applyFromArray($this->formats[$child->nodeName]);
                            } else {
                                $cellContent = '----------';
                                $this->flushCell($sheet, $column, $row, $cellContent);
                            }
                            ++$row;
                        // Add a break after a horizontal rule, simply by allowing the code to dropthru
                        case 'br':
                            if ($this->tableLevel > 0) {
                                //    If we're inside a table, replace with a \n
                                $cellContent .= "\n";
                            } else {
                                //    Otherwise flush our existing content and move the row cursor on
                                $this->flushCell($sheet, $column, $row, $cellContent);
                                ++$row;
                            }
                            //                        echo 'HARD LINE BREAK: ' , '<br />';
                            break;
                        case 'a':
                            //                        echo 'START OF HYPERLINK: ' , '<br />';
                            foreach ($attributeArray as $attributeName => $attributeValue) {
                                switch ($attributeName) {
                                    case 'href':
                                        //                                    echo 'Link to ' , $attributeValue , '<br />';
                                        $sheet->getCell($column . $row)->getHyperlink()->setUrl($attributeValue);
                                        if (isset($this->formats[$child->nodeName])) {
                                            $sheet->getStyle($column . $row)->applyFromArray($this->formats[$child->nodeName]);
                                        }
                                        break;
                                }
                            }
                            $cellContent .= ' ';
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            //                        echo 'END OF HYPERLINK:' , '<br />';
                            break;
                        case 'h1':
                        case 'h2':
                        case 'h3':
                        case 'h4':
                        case 'h5':
                        case 'h6':
                        case 'ol':
                        case 'ul':
                        case 'p':
                            if ($this->tableLevel > 0) {
                                //    If we're inside a table, replace with a \n
                                $cellContent .= "\n";
                                //                            echo 'LIST ENTRY: ' , '<br />';
                                $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                                //                            echo 'END OF LIST ENTRY:' , '<br />';
                            } else {
                                if ($cellContent > '') {
                                    $this->flushCell($sheet, $column, $row, $cellContent);
                                    $row++;
                                }
                                //                            echo 'START OF PARAGRAPH: ' , '<br />';
                                $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                                //                            echo 'END OF PARAGRAPH:' , '<br />';
                                $this->flushCell($sheet, $column, $row, $cellContent);
                                if (isset($this->formats[$child->nodeName])) {
                                    $sheet->getStyle($column . $row)->applyFromArray($this->formats[$child->nodeName]);
                                }
                                $row++;
                                $column = 'A';
                            }
                            break;
                        case 'li':
                            if ($this->tableLevel > 0) {
                                //    If we're inside a table, replace with a \n
                                $cellContent .= "\n";
                                //                            echo 'LIST ENTRY: ' , '<br />';
                                $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                                //                            echo 'END OF LIST ENTRY:' , '<br />';
                            } else {
                                if ($cellContent > '') {
                                    $this->flushCell($sheet, $column, $row, $cellContent);
                                }
                                ++$row;
                                //                            echo 'LIST ENTRY: ' , '<br />';
                                $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                                //                            echo 'END OF LIST ENTRY:' , '<br />';
                                $this->flushCell($sheet, $column, $row, $cellContent);
                                $column = 'A';
                            }
                            break;
                        case 'table':
                            $this->flushCell($sheet, $column, $row, $cellContent);
                            $column = $this->setTableStartColumn($column);
                            //                        echo 'START OF TABLE LEVEL ' , $this->tableLevel , '<br />';
                            if ($this->tableLevel > 1) {
                                --$row;
                            }
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            //                        echo 'END OF TABLE LEVEL ' , $this->tableLevel , '<br />';
                            $column = $this->releaseTableStartColumn();
                            if ($this->tableLevel > 1) {
                                ++$column;
                            } else {
                                ++$row;
                            }
                            break;
                        case 'thead':
                        case 'tbody':
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            break;
                        case 'tr':
                            $column      = $this->getTableStartColumn();
                            $cellContent = '';
                            //                        echo 'START OF TABLE ' , $this->tableLevel , ' ROW<br />';
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            ++$row;
                            //                        echo 'END OF TABLE ' , $this->tableLevel , ' ROW<br />';
                            break;
                        case 'th':
                        case 'td':
                            //                        echo 'START OF TABLE ' , $this->tableLevel , ' CELL<br />';
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            //                        echo 'END OF TABLE ' , $this->tableLevel , ' CELL<br />';
                            while (isset($this->rowspan[$column . $row])) {
                                ++$column;
                            }
                            $this->flushCell($sheet, $column, $row, $cellContent);
                            //                        if (isset($attributeArray['style']) && !empty($attributeArray['style'])) {
                            //                            $styleAry = $this->getPhpExcelStyleArray($attributeArray['style']);
                            //
                            //                            if (!empty($styleAry)) {
                            //                                $sheet->getStyle($column . $row)->applyFromArray($styleAry);
                            //                            }
                            //                        }
                            if (isset($attributeArray['rowspan']) && isset($attributeArray['colspan'])) {
                                //create merging rowspan and colspan
                                $columnTo = $column;
                                for ($i = 0; $i < $attributeArray['colspan'] - 1; $i++) {
                                    ++$columnTo;
                                }
                                $range = $column . $row . ':' . $columnTo . ($row + $attributeArray['rowspan'] - 1);
                                foreach (\PHPExcel_Cell::extractAllCellReferencesInRange($range) as $value) {
                                    $this->rowspan[$value] = true;
                                }
                                $sheet->mergeCells($range);
                                $column = $columnTo;
                            } elseif (isset($attributeArray['rowspan'])) {
                                //create merging rowspan
                                $range = $column . $row . ':' . $column . ($row + $attributeArray['rowspan'] - 1);
                                foreach (\PHPExcel_Cell::extractAllCellReferencesInRange($range) as $value) {
                                    $this->rowspan[$value] = true;
                                }
                                $sheet->mergeCells($range);
                            } elseif (isset($attributeArray['colspan'])) {
                                //create merging colspan
                                $columnTo = $column;
                                for ($i = 0; $i < $attributeArray['colspan'] - 1; $i++) {
                                    ++$columnTo;
                                }
                                $sheet->mergeCells($column . $row . ':' . $columnTo . $row);
                                $column = $columnTo;
                            }
                            ++$column;
                            break;
                        case 'body':
                            $row              = 1;
                            $column           = 'A';
                            $content          = '';
                            $this->tableLevel = 0;
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                            break;
                        default:
                            $this->processDomElement($child, $sheet, $row, $column, $cellContent);
                    }
                }
            }
        }

        protected function flushCell($sheet, $column, $row, &$cellContent) {
            if (is_string($cellContent)) {
                //    Simple String content
                if (trim($cellContent) > '') {
                    //    Only actually write it if there's content in the string
                    //                echo 'FLUSH CELL: ' , $column , $row , ' => ' , $cellContent , '<br />';
                    //    Write to worksheet to be done here...
                    //    ... we return the cell so we can mess about with styles more easily
                    $sheet->setCellValue($column . $row, $cellContent, true);
                    $this->dataArray[$row][$column] = $cellContent;
                }
            } else {
                //    We have a Rich Text run
                //    TODO
                $this->dataArray[$row][$column] = 'RICH TEXT: ' . $cellContent;
            }
            $cellContent = (string)'';
        }

        protected function setTableStartColumn($column) {
            if ($this->tableLevel == 0) {
                $column = 'A';
            }
            ++$this->tableLevel;
            $this->nestedColumn[$this->tableLevel] = $column;
            return $this->nestedColumn[$this->tableLevel];
        }

        protected function releaseTableStartColumn() {
            --$this->tableLevel;
            return array_pop($this->nestedColumn);
        }

        protected function getTableStartColumn() {
            return $this->nestedColumn[$this->tableLevel];
        }

        /**
         * Get input encoding
         * @return string
         */
        public function getInputEncoding() {
            return $this->inputEncoding;
        }

        /**
         * Set input encoding
         * @param string $pValue Input encoding
         */
        public function setInputEncoding($pValue = 'ANSI') {
            $this->inputEncoding = $pValue;
            return $this;
        }

        /**
         * Get sheet index
         * @return int
         */
        public function getSheetIndex() {
            return $this->sheetIndex;
        }

        /**
         * Set sheet index
         * @param  int $pValue Sheet index
         * @return PHPExcel_Reader_HTML
         */
        public function setSheetIndex($pValue = 0) {
            $this->sheetIndex = $pValue;
            return $this;
        }

        /**
         * Scan theXML for use of <!ENTITY to prevent XXE/XEE attacks
         * @param     string $xml
         * @throws PHPExcel_Reader_Exception
         */
        public function securityScan($xml) {
            $pattern = '/\\0?' . implode('\\0?', str_split('<!ENTITY')) . '\\0?/';
            if (preg_match($pattern, $xml)) {
                throw new PHPExcel_Reader_Exception('Detected use of ENTITY in XML, spreadsheet file load() aborted to prevent XXE/XEE attacks');
            }
            return $xml;
        }
    }
